From: Nicolas Petton <nicolas@petton.fr>
Date: Sat, 25 Apr 2015 14:53:09 +0000 (+0200)
Subject: * lisp/emacs-lisp/map.el (map--elt-list): Minor refactoring.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~23^2~2684^2~8
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=40a8a12a26763addb0422105330deb278ce87012;p=emacs.git

* lisp/emacs-lisp/map.el (map--elt-list): Minor refactoring.
---

diff --git a/lisp/emacs-lisp/map.el b/lisp/emacs-lisp/map.el
index ebf1fe9589a..b64b2bff768 100644
--- a/lisp/emacs-lisp/map.el
+++ b/lisp/emacs-lisp/map.el
@@ -258,7 +258,7 @@ form.
 If KEY is not found, return DEFAULT which defaults to nil."
   (let ((pair (assoc key map)))
     (if pair
-        (cdr (assoc key map))
+        (cdr pair)
       default)))
 
 (defun map--elt-array (map key &optional default)